home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 October / PSL Monthly Shareware CD-ROM (Public Software Library) (October 1993).iso / psl_news / cleanup.bas < prev    next >
BASIC Source File  |  1993-08-27  |  1KB  |  58 lines
  1. DEFINT A-Z
  2. DIM s$(100, 2)
  3. OPEN "news" FOR INPUT AS #1
  4. OPEN "news2" FOR OUTPUT AS #2
  5.  
  6. GetLine:
  7. LINE INPUT #1, a$
  8. PRINT a$
  9. DO WHILE RIGHT$(" " + a$, 1) = "-"
  10.   LINE INPUT #1, b$
  11.   a$ = LEFT$(a$, LEN(a$) - 1) + b$
  12. LOOP
  13.  
  14. i = 0
  15. DO WHILE i < LEN(a$)
  16.   i = i + 1
  17.   x = ASC(MID$(a$, i))
  18.   IF x < 30 OR x > 122 THEN
  19.     t = 1
  20.     DO WHILE t <= LastT AND s$(t, 1) <> CHR$(x)
  21.       t = t + 1
  22.     LOOP
  23.     IF s$(t, 1) <> CHR$(x) THEN
  24.       PRINT a$
  25.       PRINT TAB(i); "^"
  26.       PRINT "Enter substitute character: ";
  27.       DO: x$ = INKEY$: LOOP WHILE x$ = ""
  28.       s$(t, 2) = x$
  29.       s$(t, 1) = CHR$(x)
  30.       LastT = t
  31.     END IF
  32.     MID$(a$, i) = s$(t, 2)
  33.   END IF
  34. LOOP
  35.  
  36. PRINT #2, a$
  37.  
  38. IF RIGHT$(" " + a$, 1) = "]" THEN
  39.   LINE INPUT #1, x$
  40.   LINE INPUT #1, cat$
  41.   PRINT #2, "   "; cat$
  42.   PRINT "   "; cat$
  43.   LINE INPUT #1, x$
  44.   LINE INPUT #1, auth$
  45.   IF LEFT$(auth$, 1) = "#" THEN
  46.     PRINT #2, "   "; auth$
  47.     PRINT "   "; auth$' actuall is the disk #
  48.     LINE INPUT #1, x$
  49.     LINE INPUT #1, auth$
  50.   END IF
  51.   PRINT #2, "   "; auth$
  52.   PRINT "   "; auth$
  53.   LINE INPUT #1, x$
  54. END IF
  55.  
  56. IF NOT EOF(1) THEN GOTO GetLine
  57.  
  58.